home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
003
/
xlisp
/
fact.lsp
next >
Wrap
Lisp/Scheme
|
1995-03-17
|
84b
|
4 lines
(defun factorial (n)
(cond ((= n 1) 1)
(t (* n (factorial (- n 1))))))